home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / bonus.arc / DELLAYR.LSP < prev    next >
Encoding:
Text File  |  1986-03-05  |  327 b   |  15 lines
  1.  
  2. ;       Delete all entities on specified layer
  3.  
  4. (defun c:dellayer ()
  5.         (setq l (strcase (getstring "\nEnter layer to delete: ")))
  6.         (setq e (entnext))
  7.         (while e
  8.            (if (= l (cdr (assoc 8 (entget e))))
  9.               (entdel e)
  10.            )
  11.            (setq e (entnext e))
  12.         )
  13. )
  14.  
  15.